set proc to sospro
set proc to boxproc
do start
dr='N:'
DR1='N:'
f1='MEDIC_PR'
F2='MEDIC_OL'
f3='MEDIC_NW'
CLEAR
set cursor on
SET COLO TO BG+/B
CLEA
SET CURSOR OFF
@ 12,10 SAY '>>>Import / Update Data Procedure, DO NOT INTERUPT !! <<<'
@ 14,10 SAY '>>>>>>>>>>>>>>>>>  MEDICAL PROCEDURES  <<<<<<<<<<<<<<<<<<'
@ 16,10 say '   >>>>>>  L  A  B  O  R  A  T  O  R  I  U  M   <<<<<<<'
SET COLO TO GR+*/R+
@ 23,75 SAY ".0."
SET COLO TO BG+/B

sele 1
set exclu off
use &dr&f1
if fil_lock()
   copy to &dr&f2
ENDIF
UNLOCK

sele 1
set exclu off
use &dr&f1
if NET_USE('&DR&F1',.T.,'1',10)
   DELE ALL FOR AREA_CODE='L'
   PACK
endif
unlock

sele 1
set exclu off
use &dr&f1
if NET_USE('&DR&F1',.T.,'1',10)
   APPEND FROM &DR&F3
endif
unlock

f1='SUB_AREA'
f3='SUB_NW'
f4='sub_arel'
CLEAR
set cursor on
SET COLO TO BG+/B
CLEA
SET CURSOR OFF
@ 12,10 SAY '>>>Import / Update Data Procedure, DO NOT INTERUPT !! <<<'
@ 14,10 SAY '>>>>>>>>>>>>>>>>>  MEDICAL PROCEDURES  <<<<<<<<<<<<<<<<<<'
@ 16,10 say '   >>>>>>  L  A  B  O  R  A  T  O  R  I  U  M   <<<<<<<'
SET COLO TO GR+*/R+
@ 23,75 SAY ".0."
SET COLO TO BG+/B

sele 1
set exclu off
use &dr&f1
if NET_USE('&DR&F1',.T.,'1',10)
   DELE ALL FOR AREA_CODE='L'
   PACK
endif
unlock

sele 1
set exclu off
use &dr&f1
if NET_USE('&DR&F1',.T.,'1',10)
   APPEND FROM &DR&F3
endif
unlock

sele 1
set exclu off
use &dr&f3
if NET_USE('&DR&F3',.T.,'1',10)
   COPY TO &DR&F4
endif
unlock


DO INDEMED



